1 PRINT"[147]";:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
2 FORI=1TO38:PRINT"[166][146]";:NEXT
3 FORI=1TO22:PRINT"[157][166][146]";:NEXT
4 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
5 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
6 PRINT"     "
7 PRINT"  [146] [169] [146]
8 [153]"  STEP  "
9 [153]"  WAIT   "
10 [153]" ALLISON LIBRARY 
11 PRINT"   C-64    
12 [153]"SOFTWARE
13 PRINT"PRESS SPACE BAR OR WAIT[146]":I=0
14 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN14
20 REM C64 SHELL GAME BY WESLEY M. ALLISON OCTOBER 1984
21 P=100:POKE53280,3:POKE53281,1
22 PRINT"[147]        COMMODORE 64 SHELL GAME "
23 PRINT"          BY WESLEY M. ALLISON"
24 FORT=1TO3500:NEXT
25 PRINT"          INSTRUCTIONS? (Y/N)"
26 GETA$:IFA$="N"THEN34
27 IFA$=""THEN26
28 PRINT"[147]THE OBJECT OF THE GAME IS TO GUESS WHICHSHELL THAT A PEA IS HIDDEN
29 [153]"UNDER.":[153]"FIRST, PLACE YOUR BET."
30 [153]"THEN,PICK A SHELL, ANY SHELL."
31 [153]"IT'S EASY!"
32 [153]"        HIT ANY KEY TO CONTINUE"
33 [161]A$:[139]A$[178]""[167]33
34 [153]"OPEN"
35 [153]"LOADOPENONON        COMMODORE 64 SHELL GAME         WAIT"
36 [153]"      (null)TANRIGHT$   (null)TANRIGHT$   (null)TANRIGHT$   OPEN(null)TANRIGHT$   STOP(null)TANRIGHT$"             "
37 PRINT"      [171][192][179]   [171][192][179]   [171][192][179]   [159][171][192][179]   [144][171][192][179]"
38 PRINT"       1     2     3     4     5"
39 PRINT"YOU HAVE $"P
40 PRINT"WHAT IS YOUR BET"
41 INPUTB:IFB>PTHEN36
42 PRINT"WHICH SHELL"
43 INPUTS
44 LET G=INT(1+5*RND(0))
45 IFG=1THENPRINT"[209]"
46 IFG=2THENPRINT"[209]"
47 IFG=3THENPRINT"[209]"
48 IFG=4THENPRINT"[209]"
49 IFG=5THENPRINT"[209]"
50 IFS<>GTHEN53
51 PRINT"YOU WIN !!!!!!!!!!!!!!":FORT=1TO1500:NEXT:P=P+(B*2)
52 GOTO56
53 PRINT"YOU LOSE!!!!!!!!!!!!!!":GOSUB62
54 P=P-B
55 GOTO56
56 IFP<1THEN58
57 GOTO35
58 POKE53280,3:POKE53281,3
59 PRINT"[147][144]      GAME OVER"
60 FORT=1TO1000:NEXTT
61 PRINT "HIT RETURN TO REBOOT GEOS...":END
62 FORT=1TO1500:NEXT
63 RETURN